home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / base_n.sha < prev    next >
Text File  |  1994-03-01  |  413b  |  19 lines

  1. 10 CLS:CLEAR
  2. 20 PRINT "1:(10>N)  2:(N>10)";
  3. 30 INPUT ":",I
  4. 40 IF I=1 THEN 50  ELSE 80 
  5. 50  CLS:INPUT "BASE(N):",N,"NOMBRE(X):",C
  6. 60  A=N:F=N:B=10
  7. 70  GOTO 100
  8. 80  CLS:INPUT "BASE(N):",N,"NOMBRE(X):",C
  9. 90  B=N:A=10:F=0
  10. 100 E=INT(C/A):IF E=0 THEN 130
  11. 110 D=D+(C-E*A)*B^M
  12. 120 C=E:M=M+1:GOTO 100
  13. 130 D=D+C*B^M
  14. 140 IF F=0 THEN 170
  15. 150 PRINT "10>";A;":";D
  16. 160 GOTO 10
  17. 170 PRINT B;">10:";D
  18. 180 GOTO 10
  19.